home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / homeimpr.sit / Home Improvements / card_3590.txt < prev    next >
Text File  |  1988-09-19  |  4KB  |  130 lines

  1. -- card: 3590 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 3490
  5. -- name: Chime the Time
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global timecheck
  9.   put the hilite of card button "TimeCheck" into timeCheck
  10. end openCard
  11.  
  12. on idle
  13.   alarmcheck
  14.   pass idle
  15. end idle
  16.  
  17. on alarmCheck
  18.   global timeCheck
  19.   if NOT timeCheck then exit alarmCheck
  20.   put the long time into thingg
  21.   convert thingg to dateitems
  22.   if item 6 of thingg > 0 then exit alarmCheck
  23.   put item 4 of thingg into thHour
  24.   if thHour>12 then subtract 12 from thHour
  25.   put item 5 of thingg into thMins
  26.   if thMins MOD 15 = 0 then
  27.     put thMins DIV 15 into quarter
  28.     if quarter=0 then put 4 into quarter
  29.     chime thHour,quarter
  30.   end if
  31.   wait until the sound is "done"
  32. end alarmCheck
  33.  
  34. on chime
  35.   put param(1) into hh
  36.   put param(2) into qq
  37.   play "Harpsichord" e c d g3h
  38.   if qq>1 then play "Harpsichord" g3q d4 e ch
  39.   if qq>2 then play "Harpsichord" e d c g3h
  40.   if qq>3 then
  41.     play "Harpsichord" g3q d4 e cw
  42.     repeat for hh
  43.       play "Harpsichord" c3w
  44.     end repeat
  45.   end if
  46. end chime
  47.  
  48.  
  49.  
  50. -- part 1 (button)
  51. -- low flags: 00
  52. -- high flags: E005
  53. -- rect: left=414 top=121 right=135 bottom=508
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 1
  57. -- font id: 0
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 16
  61. -- part name: TimeCheck
  62. ----- HyperTalk script -----
  63. on mouseUp
  64.   global timeCheck
  65.   put the hilite of the target into timeCheck
  66. end mouseUp
  67.  
  68.  
  69.  
  70. -- part contents for background part 1
  71. ----- text -----
  72. Chime the Time
  73.  
  74. -- part contents for background part 3
  75. ----- text -----
  76. -- Install this into the Home Card stack scripts:
  77. --
  78. -- include these lines in an initialization handler (see 'home
  79. --     initializations' for more information):
  80.   global timecheck
  81.   put the hilite of card button "TimeCheck" into timeCheck
  82. --
  83. -- include alarmcheck in the 'on idle' handler, for example:
  84. --
  85. on idle
  86.   alarmcheck
  87.   pass idle
  88. end idle
  89. --
  90. -- include these handlers in the stack script:
  91. --
  92. on alarmCheck
  93.   global timeCheck
  94.   if NOT timeCheck then exit alarmCheck
  95.   put the long time into thingg
  96.   convert thingg to dateitems
  97.   if item 6 of thingg > 0 then exit alarmCheck
  98.   put item 4 of thingg into thHour
  99.   if thHour>12 then subtract 12 from thHour
  100.   put item 5 of thingg into thMins
  101.   if thMins MOD 15 = 0 then
  102.     put thMins DIV 15 into quarter
  103.     if quarter=0 then put 4 into quarter
  104.     chime thHour,quarter
  105.   end if
  106.   wait until the sound is "done"
  107. end alarmCheck
  108.  
  109. on chime
  110.   put param(1) into hh
  111.   put param(2) into qq
  112.   play "Harpsichord" e c d g3h
  113.   if qq>1 then play "Harpsichord" g3q d4 e ch
  114.   if qq>2 then play "Harpsichord" e d c g3h
  115.   if qq>3 then
  116.     play "Harpsichord" g3q d4 e cw
  117.     repeat for hh
  118.       play "Harpsichord" c3w
  119.     end repeat
  120.   end if
  121. end chime
  122.  
  123. -- part contents for background part 4
  124. ----- text -----
  125. This feature will check the time and when a quarter-hour, half-hour, three quarter-hour or hour time occurs, then the appropriate chimes will sound.  It is possible to change the sound to something other than the "Harpsichord".  This set of scripts could possibly be expanded to include checking for other events, such as appointments in a calendar, etc.  To install "Chime the Time", copy the scripts shown below into your Home Card stack script (or any card or stack script).  Also copy the "TimeCheck" card button to your Home Card.
  126. (Note: the handlers have been installed into the script of this card)
  127.  
  128. -- part contents for background part 5
  129. ----- text -----
  130. 7/1/88 3:26 PM